home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / database / postgres / appgen-0.2-a / appgen-0 / AppGEN / apps / cis.rep < prev    next >
Encoding:
INI File  |  1996-07-10  |  1.5 KB  |  63 lines
  1. [MODULE rep-approv]
  2. SET default_process AS "clear"
  3.  
  4. [FORM dataentry]
  5.     SET title AS "Scheme Approvals Report"
  6.     DEFINE FORM {
  7.         scheme_id : 5 : "Scheme Reference: " : PICK PROCESS "pick_scheme_id"
  8.         }
  9.     DEFINE TOOLBAR {
  10.         "TABLE" : ALL : PROCESS "table"
  11.         "GRAPH" : ALL : PROCESS "graph"
  12.         "EXIT" : ALL : MENU "cisreports"
  13.         }
  14.  
  15. [PROCESS clear]
  16.     DISPLAY dataentry
  17.  
  18. [PROCESS table]
  19.     DATA results
  20.     SQL "SELECT sub_code, description, limit FROM approval, subjective WHERE scheme_id='$input.scheme_id' AND approval.sub_code=subjective.costcode ORDER BY sub_code;" TO results
  21.     OUTPUT table WITH results
  22.  
  23. [PROCESS graph]
  24.     DATA results
  25.     SQL "SELECT sub_code, limit FROM approval WHERE scheme_id='$input.scheme_id' ORDER BY sub_code;" TO results
  26.     OUTPUT graph WITH results
  27.  
  28.  
  29. [PROCESS pick_display]
  30.     DISPLAY dataentry WITH input
  31.  
  32. [PROCESS pick_scheme_id]
  33.     DATA results
  34.     SQL "SELECT scheme_id, title from scheme ; " TO results
  35.     OUTPUT pick_scheme_id WITH results
  36.  
  37. [OUTPUT pick_scheme_id]
  38.     SET title AS "Available choices:"
  39.     SET type AS screen
  40.     DEFINE  OUTPUT {
  41.         scheme_id : LEFT : "Scheme"
  42.         title : LEFT : "Title
  43.         } LINK TO PROCESS pick_display WITH VALUE scheme_id
  44.  
  45. [OUTPUT table]
  46.     SET title AS "Scheme Approvals"
  47.     SET type AS "screen"
  48.     DEFINE OUTPUT {
  49.         sub_code : LEFT : "Subjective" 
  50.         description : LEFT : "Description"
  51.         limit : RIGHT : "Limit" : TOTAL
  52.         }
  53.  
  54. [OUTPUT graph]
  55.     SET title AS "Scheme Approvals"
  56.     SET type AS "graph"
  57.     DEFINE OUTPUT {
  58.         sub_code : LEFT : "Subjective" 
  59.         limit : RIGHT : "Limit"
  60.         }
  61.  
  62.  
  63.